Ì i 2
appointments
[appt.mpi,appt.date.time,appt.source,appt.id]
?(E)EAWZ[ea,eawDT,eaiaD,eawz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
appt.mpi 25 URN L MRI.PAT ea
appt.date.time 13 FREE L eawDT
appt.source 15 FREE L eaiaD
appt.id 20 FREE L eawz
appt.account 30 URN L ADM.PAT ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|4
appt.agency 30 FREE L ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|3
appt.comment 60 FREE L ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|7
appt.description 45 FREE L ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|1
appt.duration 4 PINT R ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|0
appt.facility 10 FREE L MIS.FACILITY ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|2
appt.location 10 FREE L MIS.LOCN ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|3
appt.old.date.time 13 FREE L ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|9
appt.status 9 CHOICE L ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|5
appt.time.stamp 10 PINT R ?(E)EAWZ[ea,eawDT,eaiaD,eawz]UPD
appt.type 10 FREE L SCH.APPT.TYPE ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|8
appt.unsched.thru.time 4 HHMM L ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|6
appt.visit.id 30 FREE L ?(E)EAWZ[ea,eawDT,eaiaD,eawz]|4
Ì i 2
assign.log
[ass.prefix,ass.date,ass.unit.number,ass.urn]
*(E)EAA[epx,eaD,eaU,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ass.prefix 2 FREE L epx
ass.date 8 DATE L eaD
ass.unit.number 10 FREE L eaU
ass.urn 8 URN L ea
ass.time 4 HHMM L *(E)EAA[epx,eaD,eaU,ea]|1
ass.user 15 FREE L *(E)EAA[epx,eaD,eaU,ea]|0
Ì i 2
census.rpt.agencies
[cen.rpt, cen.rpt.agency]
*(E)EE.CEN[crpt]A[gqb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cen.rpt.agency 10 FREE L MIS.FACILITY gqb
Ì i 2
census.rpt.branches
[cen.rpt, cen.rpt.branch]
*(E)EE.CEN[crpt]B[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cen.rpt.branch 10 FREE L MIS.LOCN ggn
Ì i 2
census.rpt.fin.classes
[cen.rpt, cen.rpt.fin.class]
*(E)EE.CEN[crpt]F[ggk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cen.rpt.fin.class 10 FREE L MIS.FIN.CLASS ggk
Ì i 2
census.rpt.from.ages
[cen.rpt, cen.rpt.from.age]
*(E)EE.CEN[crpt]FAGE[crFAG]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cen.rpt.from.age 7 AGE R crFAG
cen.rpt.thru.age 7 AGE R *(E)EE.CEN[crpt]FAGE[crFAG]|0
Ì i 2
census.rpt.from.bdates
[cen.rpt, cen.rpt.from.bdate]
*(E)EE.CEN[crpt]FBD[crFBD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cen.rpt.from.bdate 10 BDATE L crFBD
cen.rpt.thru.bdate 10 BDATE L *(E)EE.CEN[crpt]FBD[crFBD]|0
Ì i 2
census.rpt.genders
[cen.rpt, cen.rpt.gender]
*(E)EE.CEN[crpt]G[crSX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cen.rpt.gender 1 CHOICE L crSX
Ì i 2
census.rpt.pt.pgms
[cen.rpt, cen.rpt.pt.pgm]
*(E)EE.CEN[crpt]P[ghpp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cen.rpt.pt.pgm 10 FREE L MIS.PT.PGM ghpp
Ì i 2
conv.unique.id.errs
[conv.unique.id.err,conv.unique.id.urn]
*(E1)EA.CNV.UID["ERR",eaCNV,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv.unique.id.err 15 FREE L eaCNV
conv.unique.id.urn 25 URN L MRI.PAT ea
conv.unique.err.new.bdate 10 BDATE L VAL=(@conv.unique.err.val.new)#4S
conv.unique.err.new.name 15 FREE L VAL=(@conv.unique.err.val.new)#2S
conv.unique.err.new.sex 1 FREE L VAL=(@conv.unique.err.val.new)#3S
conv.unique.err.new.sshc 15 FREE L VAL=(@conv.unique.err.val.new)#5S
conv.unique.err.new.urn 25 URN L MRI.PAT VAL=(@conv.unique.err.val.new)#1S
conv.unique.err.old.bdate 10 BDATE L VAL=(@conv.unique.err.val.old)#4S
conv.unique.err.old.name 15 FREE L VAL=(@conv.unique.err.val.old)#2S
conv.unique.err.old.sex 1 FREE L VAL=(@conv.unique.err.val.old)#3S
conv.unique.err.old.sshc 15 FREE L VAL=(@conv.unique.err.val.old)#5S
conv.unique.err.old.urn 25 URN L MRI.PAT VAL=(@conv.unique.err.val.old)#1S
conv.unique.err.val.new 60 FREE L *(E1)EA.CNV.UID["ERR",eaCNV,ea]D|1
conv.unique.err.val.old 60 FREE L *(E1)EA.CNV.UID["ERR",eaCNV,ea]D|0
conv.unique.id.demo.txt 80 FREE L *(E1)EA.CNV.UID["ERR",eaCNV,ea]|1
conv.unique.id.err.txt 80 FREE L *(E1)EA.CNV.UID["ERR",eaCNV,ea]|0
Ì i 2
conv.unique.id.list
[conv.unique.id,conv.mri.urn]
*(E1)EA.CNV.UID["L",eaCNV,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv.unique.id 15 FREE L eaCNV
conv.mri.urn 25 URN L MRI.PAT ea
conv.emr.id 15 FREE L *(E1)EA.CNV.UID["L",eaCNV,ea]|0
Ì i 2
delete.restore.log
[del.prefix,del.date,del.number,del.urn]
*(E)EADR[epx,eaD,eaX,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
del.prefix 2 FREE L epx
del.date 8 DATE L eaD
del.number 2 PINT R eaX
del.urn 8 URN L ea
del.action 1 CHOICE L *(E)EADR[epx,eaD,eaX,ea]|1
del.time 4 HHMM L *(E)EADR[epx,eaD,eaX,ea]|2
del.user 10 FREE L *(E)EADR[epx,eaD,eaX,ea]|0
Ì i 2
duplicates
*(E)EAD
Field Name Len Dat Typ J DPM Offset/Local/VAL
dup.birthdate.range 4 PINT R *(E)EAD|5
dup.compile.mode 4 CHOICE L *(E)EAD|11
dup.date 8 DATE L *(E)EAD|0
dup.fac 10 FREE L MIS.FACILITY *(E)EAD|15
dup.first.name.sel 18 CHOICE L *(E)EAD|8
dup.last.name.sel 18 CHOICE L *(E)EAD|7
dup.possible.count 7 PINT R *(E)EAD|10
dup.process.count 7 PINT R *(E)EAD|4
dup.select.count 7 PINT R *(E)EAD|12
dup.select.end.date 8 DATE L *(E)EAD|13
dup.select.end.time 4 HHMM L *(E)EAD|14
dup.ssn.sel 18 CHOICE L *(E)EAD|9
dup.start.at.date 8 DATE L *(E)EAD|6
dup.status 8 FREE L *(E)EAD|3
dup.status.display 18 FREE L VAL=IF{@dup.status="SELECTING" @dup.status_" "_@dup.s
VAL=elect.count;@dup.status}
dup.time 4 HHMM L *(E)EAD|1
dup.user 10 FREE L *(E)EAD|2
dup.yn 1 YN L *(E)EAD|16
Ì i 2
duplicates.hub
*(E)EADH
Field Name Len Dat Typ J DPM Offset/Local/VAL
dup.hub.birthdate.range 4 INT R *(E)EADH|5
dup.hub.compile.mode 4 CHOICE L *(E)EADH|10
dup.hub.date 8 DATE L *(E)EADH|0
dup.hub.failed.reason 60 FREE L *(E)EADH|17
dup.hub.first.name.sel 18 CHOICE L *(E)EADH|8
dup.hub.last.name.sel 18 CHOICE L *(E)EADH|7
dup.hub.possible.count 7 PINT R *(E)EADH|14
dup.hub.possible.end.date 8 DATE L *(E)EADH|15
dup.hub.possible.end.time 4 HHMM L *(E)EADH|16
dup.hub.process.count 7 PINT R *(E)EADH|4
dup.hub.select.count 7 PINT R *(E)EADH|11
dup.hub.select.end.date 8 DATE L *(E)EADH|12
dup.hub.select.end.time 4 HHMM L *(E)EADH|13
dup.hub.ssn.sel 18 CHOICE L *(E)EADH|9
dup.hub.start.at.date 8 DATE L *(E)EADH|6
dup.hub.status 8 FREE L *(E)EADH|3
dup.hub.status.display 18 FREE L VAL=IF{@dup.hub.status="SELECTING" @dup.hub.status_"
VAL="_@dup.hub.select.count;@dup.hub.status}
dup.hub.time 4 HHMM L *(E)EADH|1
dup.hub.user 10 FREE L *(E)EADH|2
Ì i 2
edit.log
[edit.prefix,edit.date,edit.unit.number,edit.urn,edit.number]
*(E)EAE[epx,eaD,eaU,ea,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.prefix 2 FREE L epx
edit.date 8 DATE L eaD
edit.unit.number 10 FREE L eaU
edit.urn 25 URN L MRI.PAT ea
edit.number 2 PINT R eaX
edit.item 15 CHOICE L *(E)EAE[epx,eaD,eaU,ea,eaX]|0
edit.new.val 30 FREE L *(E)EAE[epx,eaD,eaU,ea,eaX]|3
edit.old.val 30 FREE L *(E)EAE[epx,eaD,eaU,ea,eaX]|2
edit.time 4 HHMM L *(E)EAE[epx,eaD,eaU,ea,eaX]|1
edit.user 10 FREE L MIS.USER *(E)EAE[epx,eaD,eaU,ea,eaX]|4
Ì i 2
fast.input.log
[fast.prefix,fast.user,fast.date,fast.unit.number,fast.urn]
*(E)EAF[epx,eaUS,eaD,eaU,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fast.prefix 2 FREE L epx
fast.user 10 FREE L eaUS
fast.date 8 DATE L eaD
fast.unit.number 10 FREE L eaU
fast.urn 8 URN L ea
fast.time 4 HHMM L *(E)EAF[epx,eaUS,eaD,eaU,ea]|0
Ì i 2
hub.audit.temp
[audit.hub.id,audit.time,audit.hub.item,audit.itn]
/["AU",auid,aut,auI,auitn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.hub.id 15 FREE L auid
audit.time 15 PINT R aut
audit.hub.item 35 FREE L auI
audit.itn 3 PINT R auitn
Ì i 2
hub.pic.list
[hub.pic.mpi,hub.pic.path]
*(E)EAHP[ea,eaPFP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hub.pic.mpi 25 URN L MRI.PAT ea
hub.pic.path 50 FREE L eaPFP
hub.pic.adm.urn 30 URN L ADM.PAT *(E)EAHP[ea,eaPFP]|0
Ì i 2
hub.queue
[hub.queue.number]
*(E8)EAHQ[eahq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hub.queue.number 20 PINT R eahq
hub.queue.process 50 FREE L *(E8)EAHQ[eahq]|0
Ì € i 2
main
[medical.record]
$(E)EA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
medical.record 25 URN L ea
active 1 YN L $(E)EA[ea]|2
age 7 AGE R $(E)EA[ea]|5
any.allergy.data 1 YN L VAL=IF{@MRI.ALLERGY.main "Y"}
any.lifetime.trtmnt.data 1 YN L VAL=IF{@MRI.LTD.main "Y"}
bad.debt 1 YN L $(E)EA[ea]|14
birthdate 10 BDATE L $(E)EA[ea]|3
comment 60 FREE L $(E)EA[ea]CO|0
computed.birthdate 10 BDATE L $(E)EA[ea]|11
confidential 1 YN L $(E)EA[ea]|18
confidential.flag 20 FREE L VAL=IF{"Y"=@MRI.PAT.confidential!("Y"=@MRI.PAT.confide
VAL=ntial.visits) "*** CONFIDENTIAL ***"}
confidential.for.mig 1 YN L VAL=IF{"Y"=@MRI.PAT.confidential;"Y"=@MRI.PAT.confiden
VAL=tial.visits;"Y"=@MRI.PAT.emr.record.sealed}
confidential.visits 1 YN L $(E)EA[ea]|22
current.age 7 FREE L VAL=%MRI.PAT.check.discharge.disposition(@MRI.PAT.disc
VAL=harge.disposition,@MRI.PAT.computed.birthdate,@MRI
VAL=.PAT.age,urn,@MRI.PAT.last.discharge.date)^A
demo.recall.date 8 DATE L $(E)EA[ea]|12
discharge.disposition 10 FREE L MIS.DIS $(E)EA[ea]|9
ee.setup 0 FREE L VAL=IF{@init.visits.ee.format,@init.unit.nums.ee.forma
VAL=t}
emr.id 15 FREE L VAL=@MIS.HUB.mri.hub.id
emr.record.sealed 1 YN L $(E)EA[ea]|23
expire.date 8 DATE L VAL=%MRI.PAT.get.expire.date(urn)^EXDATE
expire.time 4 HHMM L VAL=%MRI.PAT.get.expire.time(urn)^EXPTIME
facility 10 FREE L MIS.FACILITY
first.name 25 FREE L VAL=@name#"1,"
first.name.indexed 25 FREE L
healthcare.number 8 FREE L
hhc.ov.num 20 FREE L $(E)EA[ea]OV|1
hhc.ov.urn 20 FREE L $(E)EA[ea]OV|0
hhc.ov.urn.2 20 FREE L
include.no.unit.number 1 YN L VAL=IF{c.yn="Y";@px.unit.number "Y"}
init.visits.ee.format 0 FREE L VAL=%MRI.PAT.ee.build.visits.ee.format("")
last.activity.date 8 DATE L $(E)EA[ea]|10
last.discharge.date 8 DATE L VAL=%MRI.PAT.get.discharge.date(urn)^LDISDATE
last.name 25 FREE L VAL=@name#"0,"
last.name.indexed 25 FREE L
lss.patient.acct 1 YN L $(E)EA[ea]|25
maiden.other.name 30 NAME L $(E)EA[ea]|16
merged.to 25 URN L MRI.PAT $(E)EA[ea]|13
mf.unit.number 12 FREE L $(E)EA[ea]|0
missing.data 0 FREE L VAL=(@name="DOE,JOHN")!(@name="DOE,JANE")!('@name)!('@
VAL=sex)!('@birthdate)!('@mothers.first.name)
mothers.first.name 20 FREE L $(E)EA[ea]|15
name 30 NAME L $(E)EA[ea]|1
old.unit.number 10 FREE L $(E)EA[ea]|19
pci.data.sent.to.emr 1 YN L $(E)EA[ea]PCI|0
picture.1.1 14 BMP L VAL=^@Appl.file.prefix(MRI,PICRAD)[@picture.folder_.._
VAL=urn_".JPG"]
picture.2.3 12 BMP L VAL=^@Appl.file.prefix(MRI,PICRAD)[@picture.folder_.._
VAL=urn_".JPG"]
picture.3.2 17 BMP L VAL=^@Appl.file.prefix(MRI,PICRAD)[@picture.folder_.._
VAL=urn_".JPG"]
picture.4x8 8 BMP L VAL=^@Appl.file.prefix(MRI,PICRAD)[@picture.folder_.._
VAL=urn_".JPG"]
picture.5x10 10 BMP L VAL=^@Appl.file.prefix(MRI,PICRAD)[@picture.folder_.._
VAL=urn_".JPG"]
picture.7x14 14 BMP L VAL=^@Appl.file.prefix(MRI,PICRAD)[@picture.folder_.._
VAL=urn_".JPG"]
picture.aspect 3 CHOICE L $(E)EA[ea]|24
picture.date 8 DATE L $(E)EA[ea]|21
picture.folder 3 FREE L $(E)EA[ea]|20
picture.user.size BMP L VAL=^@Appl.file.prefix(MRI,PICRAD)[@picture.folder_.._
VAL=urn_".JPG"]
policy.number 30 FREE L
pt.name 30 FREE L VAL=%Z.name.inversion(@name)
sex 1 CHOICE L $(E)EA[ea]|4
soc.sec.number 12 FREE L
soundexed.name 30 NAME L
try.number 1 PINT R
unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[MRI.PAT.urn,@.mri.pfx]
unit.number.tdo 10 FREE L VAL=%MRI.PAT.unit.number.tdo(@unit.number)
universal.number 12 FREE L VAL=IF{@MIS.PARAM.country="CANADA" @MRI.DRC.health.car
VAL=e.number;@MRI.DRC.soc.sec.number}
urn 25 URN L MRI.PAT
Ì € i 2
by.prefix
[medical.record, prefix.by]
$(E)EA[ea]P[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix.by 2 FREE L epx
correspondence 1 YN L VAL=IF{+@MRI.CORR.patient.x[@.mri.pfx,urn,""] "Y";""}
folder.create.date 8 DATE L VAL=@MRI.PAT.folder.create.date.ee[@.mri.pfx]
folder.create.date.ee 8 DATE L $(E)EA[ea]P[epx]|0
more.on.microfilm 1 YN L VAL=@MRI.PAT.more.on.microfilm.ee[@.mri.pfx]
more.on.microfilm.ee 1 YN L $(E)EA[ea]P[epx]|1
portion.incomplete 1 YN L VAL=%MRI.ICR.portion.incomplete(@.mri.pfx,urn)
portion.signed.out 1 YN L VAL=IF{+@MRI.LOC.portions[@.mri.pfx,urn,""] "Y";""}
record.locator 20 FREE L VAL=@MRI.PAT.record.locator.ee[@.mri.pfx]
record.locator.ee 20 FREE L $(E)EA[ea]P[epx]|2
Ì € i 2
ccs.unit.numbers
[medical.record, ccs.prefix]
$(E)EA[ea]CCSMT[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.prefix 2 FREE L epx
ccs.merge.urn 8 URN L $(E)EA[ea]CCSMT[epx]|2
ccs.unit.number 10 FREE L $(E)EA[ea]CCSMT[epx]|0
ccs.user 10 FREE L MIS.USER $(E)EA[ea]CCSMT[epx]|1
Ì € i 2
emr.sealed.audit
[medical.record, emr.sealed.audit.q]
$(E)EA[ea]SEA[eaSEA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.audit.q 3 INT R eaSEA
emr.sealed.audit.client 30 FREE L UNV.CLIENT $(E)EA[ea]SEA[eaSEA]|5
emr.sealed.audit.date 8 DATE L $(E)EA[ea]SEA[eaSEA]|1
emr.sealed.audit.status 8 CHOICE L $(E)EA[ea]SEA[eaSEA]|0
emr.sealed.audit.sys.time 10 PINT R $(E)EA[ea]SEA[eaSEA]|3
emr.sealed.audit.time 4 HHMM L $(E)EA[ea]SEA[eaSEA]|2
emr.sealed.audit.user 10 FREE L MIS.USER $(E)EA[ea]SEA[eaSEA]|4
Ì € i 2
emr.sealed.audit.users
[medical.record,emr.sealed.audit.q, emr.sealed.audit.acc.user]
$(E)EA[ea]SEA[eaSEA]U[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.audit.acc.user 10 FREE L MIS.USER gu
Ì € i 2
emr.sealed.audit.visits
[medical.record,emr.sealed.audit.q, emr.sealed.visit]
$(E)EA[ea]SEA[eaSEA]A[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.visit 10 FREE L aa
Ì € i 2
hhc.ov.referral.source
[medical.record, hhc.mri.referral.source]
$(E)EA[ea]ROV[eaROV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhc.mri.referral.source 10 FREE L eaROV
hhc.mri.referral.number 30 FREE L $(E)EA[ea]ROV[eaROV]|0
Ì € i 2
merged.from
[medical.record, merged.number]
$(E)EA[ea]MF[mrg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merged.number 2 PINT R mrg
merged.birthdate 10 BDATE L VAL=@MRI.PAT.birthdate[@merged.urn]
merged.mothers.first.name 20 FREE L VAL=@MRI.PAT.mothers.first.name[@merged.urn]
merged.name 30 FREE L VAL=@MRI.PAT.name[@merged.urn]
merged.sex 1 FREE L VAL=@MRI.PAT.sex[@merged.urn]
merged.unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[@merged.urn,merge.prefix]
merged.urn 10 URN L $(E)EA[ea]MF[mrg]|0
Ì € i 2
other.names
[medical.record, other.name]
$(E)EA[ea]ON[eaON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.name 30 NAME L eaON
Ì € i 2
unit.numbers
[medical.record, prefix]
$(E)EA[ea]UN[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix 2 FREE L epx
ccs.px.merged.to 8 URN L $(E)EA[ea]UN[epx]CCS.VS|0
px.unit.number 10 FREE L $(E)EA[ea]UN[epx]|0
px.user 10 FREE L MIS.USER $(E)EA[ea]UN[epx]|1
Ì € i 2
visits
[medical.record, visit.subscript]
$(E)EA[ea]VS[eaV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.subscript 0 FREE L eaV
cd.yn 1 YN L $(E)EA[ea]VS[eaV]CD|6
print.cd.screen 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@visit.cust.def.fields,"",0)}}
print.cd.screen.verbatim 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@visit.cust.def.fields,1,0)}}
visit.acct.number 12 FREE L VAL=(visit.subscript#"2|")
visit.admit.urn 30 URN L ADM.PAT $(E)EA[ea]VS[eaV]|4
visit.client 14 FREE L $(E)EA[ea]VS[eaV]|14
visit.confidential 1 YN L $(E)EA[ea]VS[eaV]|6
visit.date 8 DATE L VAL=(99999999-(visit.subscript#"0|"$8)<99999999)
visit.date.time 13 FREE L VAL=(99999999.9999-(visit.subscript#"0|")<99999999.
VAL=9999)
visit.discharge.date 8 DATE L $(E)EA[ea]VS[eaV]|2
visit.discharge.dispo 10 FREE L MIS.DIS $(E)EA[ea]VS[eaV]|3
visit.doctor 10 FREE L MIS.DOC $(E)EA[ea]VS[eaV]|1
visit.facility 10 FREE L MIS.FACILITY VAL=IF{IF{@visit.acct.number^v$2?1AA;v#0?1A;.}^MP,IF{"
VAL=CANADA"'=@MIS.PARAM.country @MIS.PARAM.acct.num.px
VAL=.facility[MP];+@MIS.CAN.ACNS.facilities[@MIS.CAN.A
VAL=CNS.prefix.x[MP],""]}}
visit.financial.class 10 FREE L MIS.FIN.CLASS $(E)EA[ea]VS[eaV]|16
visit.guar.updatd.drc.out 1 YN L $(E)EA[ea]VS[eaV]|9
visit.hh.sch.or.pre 1 YN L $(E)EA[ea]VS[eaV]|20
visit.ins.updated.drc.out 1 YN L VAL=(IF{@visit.ins.updated.drc;"Y"})
visit.insurance 10 FREE L MIS.INS $(E)EA[ea]VS[eaV]|15
visit.location 10 FREE L MIS.LOCN $(E)EA[ea]VS[eaV]|0
visit.lss.encounter.urn 12 FREE L $(E)EA[ea]VS[eaV]|21
visit.lss.episode.urn 12 FREE L $(E)EA[ea]VS[eaV]|22
visit.nonadmit.date 8 DATE L $(E)EA[ea]VS[eaV]|19
visit.oe.report.urn 30 URN L $(E)EA[ea]VS[eaV]|10
visit.orders 1 YN L $(E)EA[ea]VS[eaV]|11
visit.patient.program 10 FREE L $(E)EA[ea]VS[eaV]|17
visit.reason 50 FREE L $(E)EA[ea]VS[eaV]|7
visit.sch.or.pre 1 YN L $(E)EA[ea]VS[eaV]|14
visit.sealed.emr 1 YN L $(E)EA[ea]VS[eaV]|12
visit.status 3 FREE L $(E)EA[ea]VS[eaV]|18
visit.suppress.emr 1 YN L $(E)EA[ea]VS[eaV]|13
visit.time 4 HHMM L VAL=(19999-(visit.subscript#"0|"%8)%0<9999)
visit.type 3 CHOICE L VAL=(visit.subscript#"1|")
Ì € i 2
visit.cust.def.queries
[medical.record,visit.subscript, cd.query]
$(E)EA[ea]VS[eaV]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.response 75 QRY.RESP L $(E)EA[ea]VS[eaV]CD[ggv]|0
cd.yn.comment 70 QRY.RESP L $(E)EA[ea]VS[eaV]CD[ggv]|5
Ì € i 2
visit.cust.def.query.mult
[medical.record,visit.subscript,cd.query, cd.query.mult.q]
$(E)EA[ea]VS[eaV]CD[ggv]M[ggvMD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query.mult.q 2 PINT R ggvMD
cd.query.mult.response 30 QRY.RESP L $(E)EA[ea]VS[eaV]CD[ggv]M[ggvMD]|0
Ì € i 2
visit.cust.def.fields.ee
[medical.record,ee.visit.subscript,
$(E)EA[ea]VE[eaVQ]CD
Field Name Len Dat Typ J DPM Offset/Local/VAL
print.cd.screen.ee 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@visit.cust.def.fields.ee,"",0)}}
print.cd.screen.verbat.ee 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@visit.cust.def.fields.ee,1,0)}}
Ì € i 2
visit.cust.def.queries.ee
[medical.record,ee.visit.subscript, cd.query.ee]
$(E)EA[ea]VE[eaVQ]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query.ee 10 FREE L MIS.QUERY ggv
cd.response.ee 75 QRY.RESP L $(E)EA[ea]VE[eaVQ]CD[ggv]|0
cd.yn.comment.ee 70 QRY.RESP L $(E)EA[ea]VE[eaVQ]CD[ggv]|5
Ì € i 2
visit.cust.def.query.m.ee
[medical.record,ee.visit.subscript,cd.query.ee, cd.query.mult.q.ee]
$(E)EA[ea]VE[eaVQ]CD[ggv]M[ggvMD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query.mult.q.ee 2 PINT R ggvMD
cd.query.mult.response.ee 30 QRY.RESP L $(E)EA[ea]VE[eaVQ]CD[ggv]M[ggvMD]|0
Ì i 2
merge.log
[merge.prefix,merge.date,merge.urn,merge.number]
*(E)EAMRG[epx,eaD,ea,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merge.prefix 2 FREE L epx
merge.date 8 DATE L eaD
merge.urn 8 URN L ea
merge.number 3 PINT R eaX
auto.merge 3 CHOICE L *(E)EAMRG[epx,eaD,ea,eaX]|10
merge.acct.no.for.switch 10 FREE L *(E)EAMRG[epx,eaD,ea,eaX]|9
merge.birthdate 10 BDATE L *(E)EAMRG[epx,eaD,ea,eaX]|3
merge.created.by 14 FREE L *(E)EAMRG[epx,eaD,ea,eaX]|8
merge.mfn 20 FREE L *(E)EAMRG[epx,eaD,ea,eaX]|5
merge.name 30 FREE L *(E)EAMRG[epx,eaD,ea,eaX]|2
merge.sex 1 CHOICE L *(E)EAMRG[epx,eaD,ea,eaX]|4
merge.time 4 HHMM L *(E)EAMRG[epx,eaD,ea,eaX]|6
merge.txn 7 CHOICE L *(E)EAMRG[epx,eaD,ea,eaX]|0
merge.unit.number 10 FREE L *(E)EAMRG[epx,eaD,ea,eaX]|1
merge.user 10 FREE L *(E)EAMRG[epx,eaD,ea,eaX]|7
Ì € i 2
merge.log.other.nums
[merge.prefix,merge.date,merge.urn,merge.number, merge.other.num.prefix]
*(E)EAMRG[epx,eaD,ea,eaX]O[mepx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merge.other.num.prefix 2 FREE L mepx
merge.other.num.removed 10 FREE L *(E)EAMRG[epx,eaD,ea,eaX]O[mepx]|0
merge.other.num.saved 10 FREE L VAL=@MRI.PAT.px.unit.number[merge.other.num.prefix]
Ì i 2
missing.index
[miss.prefix,miss.date,miss.urn]
*(E)EAM[epx,eaD,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
miss.prefix 2 FREE L epx
miss.date 8 DATE L eaD
miss.urn 8 URN L ea
miss.user 10 FREE L *(E)EAM[epx,eaD,ea]|0
Ì i 2
restriction.top
[restricted.urn]
?(E)EARX[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
restricted.urn 25 URN L MRI.PAT ea
Ì € i 2
restriction
[restricted.urn, restricted.event.q]
?(E)EARX[ea,eaRXQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
restricted.event.q 10 PINT R eaRXQ
restricted.conflict 15 FREE L ?(E)EARX[ea,eaRXQ]|5
restricted.date 10 DATE L ?(E)EARX[ea,eaRXQ]|0
restricted.description 120 FREE L ?(E)EARX[ea,eaRXQ]|2
restricted.facility 10 FREE L MIS.FACILITY ?(E)EARX[ea,eaRXQ]|6
restricted.source 20 FREE L ?(E)EARX[ea,eaRXQ]|3
restricted.time 10 TIME L ?(E)EARX[ea,eaRXQ]|1
restricted.visit 15 FREE L ?(E)EARX[ea,eaRXQ]|4
Ì i 2
sch.prvdrs
[sch.pt]
*(E)EAWPP[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sch.pt 25 URN L MRI.PAT ea
Ì € i 2
sch.prvdrs.dlft
[sch.pt, sch.type]
*(E)EAWPP[ea]D[ggi]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sch.type 10 FREE L MIS.DOC.TYPE ggi
sch.provider 10 FREE L MIS.DOC *(E)EAWPP[ea]D[ggi]
Ì € i 2
sch.prvdrs.nogo
[sch.pt, sch.nogo.prvdr]
*(E)EAWPP[ea]NG[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sch.nogo.prvdr 10 FREE L MIS.DOC ggg
Ì i 2
sealed.emr.visits
[sealed.emr.urn,sealed.emr.adm]
*(E)EAMRX[ea,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sealed.emr.urn 25 URN L MRI.PAT ea
sealed.emr.adm 30 URN L ADM.PAT aa
sealed.emr.status 8 CHOICE L *(E)EAMRX[ea,aa]|0
Ì € i 2
sealed.emr.users
[sealed.emr.urn,sealed.emr.adm, sealed.emr.user]
*(E)EAMRX[ea,aa]U[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sealed.emr.user 10 FREE L MIS.USER gu
Ì i 2
ccs.xfer.queue
[xfer.seconds,xfer.type,xfer.job,
*(E3)EAXQ[xsec,xch,xjb]CCS
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.xfer.new.hub.id 20 FREE L *(E3)EAXQ[xsec,xch,xjb]CCS|0
ccs.xfer.old.hub.id 20 FREE L *(E3)EAXQ[xsec,xch,xjb]CCS|1
ccs.xfer.urn 25 URN L MRI.PAT *(E3)EAXQ[xsec,xch,xjb]CCS|2
Ì € i 2
ccs.xfer.unit.numbers
[xfer.seconds,xfer.type,xfer.job, ccs.switch.unit.number]
*(E3)EAXQ[xsec,xch,xjb]CCS["CCSUN",eaN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.switch.unit.number 10 FREE L eaN
Ì i 2
xfer.queue.cust.queries
[xfer.seconds,xfer.type,xfer.job, xfer.queue.cd.query]
*(E3)EAXQ[xsec,xch,xjb]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xfer.queue.cd.query 10 FREE L MIS.QUERY ggv
xfer.queue.cd.resp 75 QRY.RESP L *(E3)EAXQ[xsec,xch,xjb]CD[ggv]|0
Index Files Subscripts/Physical Base
actual.name.index [last.name.indexed,first.name.indexed,urn,sex,computed.birthdate]
?(E)EAAN[eaNML,eaNMF,ea,eaSX,eaCBD]
assignment.date.index [ass.date,urn]
?(E)EAI[eaD,ea]
dob.index [computed.birthdate,urn]
?(E)EAB[eaCBD,ea]
duplicate.index [last.name,first.name,soc.sec.number,birthdate,urn]
?(E)EAD[x1,x2,eaSSN,eaBD,ea]
edit.activity.index [seconds,queue.number] = urn
?(E)EAX[easc,eaqn]
healthcare.index [healthcare.number,urn]
?(E)EAS[eaSSN,ea]
hhc.ov.num.index [hhc.ov.urn] = urn
?(E)EAOVI[eaOV]
hhc.referral.num.index [hhc.mri.referral.source,hhc.mri.referral.number] = urn
?(E)EAROV[eaROV,eaRON]
hub.audit.x [name,audit.hub.id] = urn
/LIST[eaNM,auid]
name.index [last.name,first.name,sex,computed.birthdate,urn]
?(E)EAN[x1,x2,eaSX,eaCBD,ea]
policy.num.index [policy.number,urn]
?(E)EAP[eaPLN,ea]
soc.sec.index [soc.sec.number,urn]
?(E)EAS[eaSSN,ea]
unit.num.index [unit.number] = urn
?(E)EAU[eaN]
visit.locn.x [urn,visit.facility,visit.location,visit.date.time]
?(E)EAL[ea,gqb,ggn,eaVDT]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |